home *** CD-ROM | disk | FTP | other *** search
- %BEGIN MacPaint
-
- %
- % Create the string that will be used to hold the image data as it
- % is retrieved (72 bytes per macpaint scan line)
- %
- /scanline 72 string def
-
- %
- % - showMPimage -
- %
- % This reads the image data in, and displays the image properly.
- %
- /showMPimage
- {
- 576 720 scale
- 576 720 1
- [576 0 0 -720 0 720]
- {currentfile scanline readhexstring pop}
- image
- % Discard the final > char. (Also consumes preceeding newline)
- currentfile read pop pop
- currentfile read pop pop
- }
- def
-
- %END MacPaint
-